<!DOCTYPE html>
<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><title>Compare subsets (types) of places that are all from one list — ejamit_compare_types_of_places • EJAM</title><!-- favicons --><link rel="icon" type="image/png" sizes="16x16" href="../favicon-16x16.png"><link rel="icon" type="image/png" sizes="32x32" href="../favicon-32x32.png"><link rel="apple-touch-icon" type="image/png" sizes="180x180" href="../apple-touch-icon.png"><link rel="apple-touch-icon" type="image/png" sizes="120x120" href="../apple-touch-icon-120x120.png"><link rel="apple-touch-icon" type="image/png" sizes="76x76" href="../apple-touch-icon-76x76.png"><link rel="apple-touch-icon" type="image/png" sizes="60x60" href="../apple-touch-icon-60x60.png"><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.3.1/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.3.1/bootstrap.bundle.min.js"></script><link href="../deps/font-awesome-6.4.2/css/all.min.css" rel="stylesheet"><link href="../deps/font-awesome-6.4.2/css/v4-shims.min.css" rel="stylesheet"><script src="../deps/headroom-0.11.0/headroom.min.js"></script><script src="../deps/headroom-0.11.0/jQuery.headroom.min.js"></script><script src="../deps/bootstrap-toc-1.0.1/bootstrap-toc.min.js"></script><script src="../deps/clipboard.js-2.0.11/clipboard.min.js"></script><script src="../deps/search-1.0.0/autocomplete.jquery.min.js"></script><script src="../deps/search-1.0.0/fuse.min.js"></script><script src="../deps/search-1.0.0/mark.min.js"></script><!-- pkgdown --><script src="../pkgdown.js"></script><meta property="og:title" content="Compare subsets (types) of places that are all from one list — ejamit_compare_types_of_places"><meta name="description" content="*** DRAFT - May change but works as currently drafted.
e.g., change output formats of results_bytype vs results_overall"><meta property="og:description" content="*** DRAFT - May change but works as currently drafted.
e.g., change output formats of results_bytype vs results_overall"><meta property="og:image" content="https://usepa.github.io/EJAM/logo.svg"></head><body>
    <a href="#main" class="visually-hidden-focusable">Skip to contents</a>


    <nav class="navbar navbar-expand-lg fixed-top bg-light" data-bs-theme="light" aria-label="Site navigation"><div class="container">

    <a class="navbar-brand me-2" href="../index.html">EJAM</a>

    <small class="nav-text text-warning me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="Released version">2.32.0</small>


    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
      <span class="navbar-toggler-icon"></span>
    </button>

    <div id="navbar" class="collapse navbar-collapse ms-3">
      <ul class="navbar-nav me-auto"><li class="active nav-item"><a class="nav-link" href="../reference/index.html">Reference</a></li>
<li class="nav-item dropdown">
  <button class="nav-link dropdown-toggle" type="button" id="dropdown-articles" data-bs-toggle="dropdown" aria-expanded="false" aria-haspopup="true">Articles</button>
  <ul class="dropdown-menu" aria-labelledby="dropdown-articles"><li><hr class="dropdown-divider"></li>
    <li><h6 class="dropdown-header" data-toc-skip>Overview for EJAM Users</h6></li>
    <li><a class="dropdown-item" href="../articles/0_whatis.html">What is EJAM</a></li>
    <li><a class="dropdown-item" href="../articles/0_webapp.html">Using EJAM</a></li>
    <li><hr class="dropdown-divider"></li>
    <li><h6 class="dropdown-header" data-toc-skip>For analysts using R</h6></li>
    <li><a class="dropdown-item" href="../articles/1_installing.html">Installing the EJAM R package</a></li>
    <li><a class="dropdown-item" href="../articles/2_quickstart.html">Quick Start Guide</a></li>
    <li><a class="dropdown-item" href="../articles/3_analyzing.html">Basics of Using EJAM for Analysis in RStudio</a></li>
    <li><a class="dropdown-item" href="../articles/4_advanced.html">Advanced Features</a></li>
  </ul></li>
<li class="nav-item"><a class="nav-link" href="../news/index.html">Changelog</a></li>
      </ul><ul class="navbar-nav"><li class="nav-item"><form class="form-inline" role="search">
 <input class="form-control" type="search" name="search-input" id="search-input" autocomplete="off" aria-label="Search site" placeholder="Search for" data-search-index="../search.json"></form></li>
<li class="nav-item"><a class="external-link nav-link" href="https://github.com/USEPA/EJAM/" aria-label="GitHub"><span class="fa fab fa-github fa-lg"></span></a></li>
      </ul></div>


  </div>
</nav><div class="container template-reference-topic">
<div class="row">
  <main id="main" class="col-md-9"><div class="page-header">
      <img src="../logo.svg" class="logo" alt=""><h1>Compare subsets (types) of places that are all from one list</h1>
      <small class="dont-index">Source: <a href="https://github.com/USEPA/EJAM/blob/HEAD/R/ejamit_compare_types_of_places.R" class="external-link"><code>R/ejamit_compare_types_of_places.R</code></a></small>
      <div class="d-none name"><code>ejamit_compare_types_of_places.Rd</code></div>
    </div>

    <div class="ref-description section level2">
    <p>*** DRAFT - May change but works as currently drafted.
e.g., change output formats of results_bytype vs results_overall</p>
    </div>

    <div class="section level2">
    <h2 id="ref-usage">Usage<a class="anchor" aria-label="anchor" href="#ref-usage"></a></h2>
    <div class="sourceCode"><pre class="sourceCode r"><code><span><span class="fu">ejamit_compare_types_of_places</span><span class="op">(</span></span>
<span>  <span class="va">sitepoints</span>,</span>
<span>  typeofsite <span class="op">=</span> <span class="cn">NULL</span>,</span>
<span>  shapefile <span class="op">=</span> <span class="cn">NULL</span>,</span>
<span>  fips <span class="op">=</span> <span class="cn">NULL</span>,</span>
<span>  silentinteractive <span class="op">=</span> <span class="cn">TRUE</span>,</span>
<span>  <span class="va">...</span></span>
<span><span class="op">)</span></span></code></pre></div>
    </div>

    <div class="section level2">
    <h2 id="arguments">Arguments<a class="anchor" aria-label="anchor" href="#arguments"></a></h2>


<dl><dt id="arg-sitepoints">sitepoints<a class="anchor" aria-label="anchor" href="#arg-sitepoints"></a></dt>
<dd><p>see <code><a href="ejamit.html">ejamit()</a></code></p></dd>


<dt id="arg-typeofsite">typeofsite<a class="anchor" aria-label="anchor" href="#arg-typeofsite"></a></dt>
<dd><p>vector of length same as NROW(sitepoints), where
each unique value defines a group of sites</p></dd>


<dt id="arg-shapefile">shapefile<a class="anchor" aria-label="anchor" href="#arg-shapefile"></a></dt>
<dd><p>see <code><a href="ejamit.html">ejamit()</a></code></p></dd>


<dt id="arg-fips">fips<a class="anchor" aria-label="anchor" href="#arg-fips"></a></dt>
<dd><p>see <code><a href="ejamit.html">ejamit()</a></code></p></dd>


<dt id="arg-silentinteractive">silentinteractive<a class="anchor" aria-label="anchor" href="#arg-silentinteractive"></a></dt>
<dd><p>passed to <code><a href="ejamit.html">ejamit()</a></code></p></dd>


<dt id="arg--">...<a class="anchor" aria-label="anchor" href="#arg--"></a></dt>
<dd><p>see <code><a href="ejamit.html">ejamit()</a></code></p></dd>

</dl></div>
    <div class="section level2">
    <h2 id="value">Value<a class="anchor" aria-label="anchor" href="#value"></a></h2>
    <p>similar to ejamit output but results_overall has one row per unique typeofsite</p>
    </div>

    <div class="section level2">
    <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
    <div class="sourceCode"><pre class="sourceCode r"><code><span>  <span class="va">out</span> <span class="op">&lt;-</span> <span class="fu">ejamit_compare_types_of_places</span><span class="op">(</span><span class="va">testpoints_10</span><span class="op">[</span><span class="fl">1</span><span class="op">:</span><span class="fl">4</span>, <span class="op">]</span>, </span>
<span>    typeofsite <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"A"</span>, <span class="st">"B"</span>, <span class="st">"B"</span>, <span class="st">"C"</span><span class="op">)</span><span class="op">)</span></span>
<span>  <span class="fu"><a href="https://rdrr.io/r/base/cbind.html" class="external-link">cbind</a></span><span class="op">(</span>Rows_or_length <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/lapply.html" class="external-link">sapply</a></span><span class="op">(</span><span class="va">out</span>, <span class="va">NROW</span><span class="op">)</span><span class="op">)</span></span>
<span>  </span>
<span>  <span class="fu"><a href="ejam2barplot_sitegroups.html">ejam2barplot_sitegroups</a></span><span class="op">(</span><span class="va">out</span>, <span class="va">names_these_ratio_to_avg</span><span class="op">[</span><span class="fl">1</span><span class="op">]</span>, topn <span class="op">=</span> <span class="fl">3</span><span class="op">)</span></span>
<span>  </span>
<span>  <span class="fu"><a href="ejam2barplot_sitegroups.html">ejam2barplot_sitegroups</a></span><span class="op">(</span><span class="va">out</span>, <span class="st">"sitecount_unique"</span>, topn<span class="op">=</span><span class="fl">3</span>, sortby <span class="op">=</span> <span class="cn">F</span><span class="op">)</span></span>
<span>  </span>
<span>  <span class="fu"><a href="ejam2barplot_sitegroups.html">ejam2barplot_sitegroups</a></span><span class="op">(</span><span class="va">out</span>, <span class="st">"pop"</span>, topn <span class="op">=</span> <span class="fl">3</span>, sortby <span class="op">=</span> <span class="cn">F</span><span class="op">)</span></span>
<span>  </span>
<span>  <span class="co"># use calculated variable not in original table</span></span>
<span>  <span class="va">df</span> <span class="op">&lt;-</span> <span class="va">out</span><span class="op">$</span><span class="va">results_bytype</span></span>
<span>  <span class="va">df</span><span class="op">$</span><span class="va">share</span> <span class="op">&lt;-</span> <span class="va">df</span><span class="op">$</span><span class="va">pop</span> <span class="op">/</span> <span class="fu"><a href="https://rdrr.io/r/base/sum.html" class="external-link">sum</a></span><span class="op">(</span><span class="va">df</span><span class="op">$</span><span class="va">pop</span><span class="op">)</span></span>
<span>  <span class="va">df</span><span class="op">$</span><span class="va">pop_per_site</span> <span class="op">&lt;-</span> <span class="va">df</span><span class="op">$</span><span class="va">pop</span> <span class="op">/</span> <span class="va">df</span><span class="op">$</span><span class="va">sitecount_unique</span></span>
<span>  </span>
<span>  <span class="fu"><a href="plot_barplot_sites.html">plot_barplot_sites</a></span><span class="op">(</span><span class="va">df</span>,</span>
<span>    <span class="st">"share"</span>, ylab <span class="op">=</span> <span class="st">"Share of Total Population"</span>,</span>
<span>    topn <span class="op">=</span> <span class="fl">3</span>, names.arg <span class="op">=</span> <span class="va">out</span><span class="op">$</span><span class="va">types</span> , sortby <span class="op">=</span> <span class="cn">F</span><span class="op">)</span></span>
<span>    </span>
<span>  <span class="fu"><a href="plot_barplot_sites.html">plot_barplot_sites</a></span><span class="op">(</span><span class="va">df</span>,</span>
<span>    <span class="st">"pop_per_site"</span>, ylab <span class="op">=</span> <span class="st">"Pop. at Avg. Site in Group"</span>,</span>
<span>    topn <span class="op">=</span> <span class="fl">3</span>, main <span class="op">=</span> <span class="st">"Nearby Residents per Site, by Site Type"</span>,</span>
<span>    names.arg <span class="op">=</span> <span class="va">out</span><span class="op">$</span><span class="va">types</span> , sortby <span class="op">=</span> <span class="cn">F</span><span class="op">)</span></span>
<span>  </span>
<span>  <span class="kw">if</span> <span class="op">(</span><span class="cn">FALSE</span><span class="op">)</span> <span class="op">{</span> <span class="co"># \dontrun{</span></span>
<span>    </span>
<span>  <span class="co"># Analyze by EPA Region</span></span>
<span>  </span>
<span>  <span class="va">pts</span> <span class="op">&lt;-</span> <span class="fu"><a href="https://rdrr.io/r/base/data.frame.html" class="external-link">data.frame</a></span><span class="op">(</span><span class="va">testpoints_1000</span><span class="op">)</span></span>
<span>  </span>
<span>  <span class="co"># Get State and EPA Region of each point from lat/lon</span></span>
<span>  </span>
<span>   <span class="va">x</span> <span class="op">&lt;-</span> <span class="fu"><a href="state_from_latlon.html">state_from_latlon</a></span><span class="op">(</span>lat <span class="op">=</span> <span class="va">pts</span><span class="op">$</span><span class="va">lat</span>, lon <span class="op">=</span> <span class="va">pts</span><span class="op">$</span><span class="va">lon</span><span class="op">)</span></span>
<span>   <span class="va">pts</span> <span class="op">&lt;-</span> <span class="fu"><a href="https://rdrr.io/r/base/data.frame.html" class="external-link">data.frame</a></span><span class="op">(</span><span class="va">pts</span>, <span class="va">x</span><span class="op">)</span></span>
<span>   </span>
<span>   <span class="va">out_byregion</span> <span class="op">&lt;-</span> <span class="fu">ejamit_compare_types_of_places</span><span class="op">(</span></span>
<span>     <span class="va">pts</span>, typeofsite <span class="op">=</span> <span class="va">pts</span><span class="op">$</span><span class="va">REGION</span><span class="op">)</span></span>
<span>   </span>
<span>   <span class="va">dvarname</span> <span class="op">&lt;-</span> <span class="va">names_d</span><span class="op">[</span><span class="fl">3</span><span class="op">]</span></span>
<span>   <span class="fu"><a href="ejam2barplot_sitegroups.html">ejam2barplot_sitegroups</a></span><span class="op">(</span><span class="va">out_byregion</span>, <span class="va">dvarname</span><span class="op">)</span></span>
<span>   <span class="fu"><a href="https://rdrr.io/r/graphics/abline.html" class="external-link">abline</a></span><span class="op">(</span>h <span class="op">=</span> <span class="fu"><a href="usastats_means.html">usastats_means</a></span><span class="op">(</span><span class="va">dvarname</span><span class="op">)</span><span class="op">)</span></span>
<span>   </span>
<span>   <span class="fu"><a href="ejam2barplot_sitegroups.html">ejam2barplot_sitegroups</a></span><span class="op">(</span><span class="va">out_byregion</span>, <span class="st">"ratio.to.avg.pctmin"</span>,</span>
<span>      main <span class="op">=</span> <span class="st">"By EPA Region"</span>, ylim <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="fl">0</span>, <span class="fl">2</span><span class="op">)</span><span class="op">)</span></span>
<span>   <span class="fu"><a href="https://rdrr.io/r/graphics/abline.html" class="external-link">abline</a></span><span class="op">(</span>h <span class="op">=</span> <span class="fl">1</span><span class="op">)</span></span>
<span>     </span>
<span>   <span class="co"># Analyze by State (slow)</span></span>
<span>   </span>
<span>   <span class="va">out_bystate</span> <span class="op">&lt;-</span> <span class="fu">ejamit_compare_types_of_places</span><span class="op">(</span><span class="va">pts</span>, typeofsite <span class="op">=</span> <span class="va">pts</span><span class="op">$</span><span class="va">ST</span><span class="op">)</span></span>
<span>   </span>
<span>   <span class="fu"><a href="ejam2barplot_sitegroups.html">ejam2barplot_sitegroups</a></span><span class="op">(</span><span class="va">out_bystate</span>, <span class="st">"sitecount_unique"</span>, </span>
<span>     names.arg <span class="op">=</span> <span class="va">out_bystate</span><span class="op">$</span><span class="va">types</span>, topn <span class="op">=</span> <span class="fl">52</span>, cex.names <span class="op">=</span> <span class="fl">0.5</span>,</span>
<span>     main <span class="op">=</span> <span class="st">"Sites by State"</span><span class="op">)</span></span>
<span></span>
<span>  <span class="op">}</span> <span class="co"># }</span></span>
<span>  </span></code></pre></div>
    </div>
  </main><aside class="col-md-3"><nav id="toc" aria-label="Table of contents"><h2>On this page</h2>
    </nav></aside></div>


    <footer><div class="pkgdown-footer-left">
  <p>US EPA 2024</p>
</div>

<div class="pkgdown-footer-right">
  <p>EJAM Version 2.32.0</p>
</div>

    </footer></div>





  </body></html>

